##  Overlay CGW north and Kalk South species response curves

setwd ( "C:/GRASSWRENS_JAN11/plots/")
workdir =  "C:/GRASSWRENS_JAN11/plots/"

cgwdihi = read.csv ("CGW_dist_hi_only.dat")
kgwdihi = read.csv ("Kalk_dist_hi_only.dat")
cgwdihi [1:3,]
kgwdihi [1:3,]

cgw = cgwdihi$y
kgw = kgwdihi$y

plot(cgw, type = "l", col = "blue", ylim = c(0,1))
lines (kgw, type = "l", col = "red", )
lines (kgw1, type = "l", col = "green")
lines (cgw1, type = "l", col = "black")

# Overlay CGW KGW all data

setwd ( "C:/GRASSWRENS_JAN11/all/plots/")
workdir =  "C:/GRASSWRENS_JAN11/all/plots/"

cgwdihi = read.csv ("CGW_dist_hi_only.dat")
kgwdihi = read.csv ("Kalk_dist_hi_only.dat")
cgwdihi [1:3,]
kgwdihi [1:3,]

cgw1 = cgwdihi$y
kgw1 = kgwdihi$y

plot(cgw, type = "l", col = "blue", ylim = c(0,1))
lines (kgw, type = "l", col = "green")